home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1999 #2
/
Amiga Plus CD - 1999 - No. 2.iso
/
System-Boost
/
Grafik
/
Visage
/
Rexx
/
ImageDimensions.ced
next >
Wrap
Text File
|
1998-11-08
|
2KB
|
70 lines
/**
** ImageDimensions.CEd V1.0 (31-Aug-97) For CygnusEd & Visage
**
** This script will paste the width and height for the image
** specified within an <IMG> tag.
** Bind it to a hotkey, and press that key while
** the cursor is placed inside an <Img Src=...> tag.
** This doesn't work for pictures given an absolute path,
** like http://... but you probably knew that ;^)
**
**
** For feedback write Allan Odgaard <Duff@DIKU.DK>
**/
/* Please customize this line */
Visage = "Duff's:Graphics/Visage"
/* The rest should work without your interference :-) */
Options Results
Status DirName; Path = RESULT
Status CursorColumn; CursorX = RESULT
Status LineBuffer; Line = RESULT
Status CursorLine; LineNr = RESULT
EndTag = Right(Line, Length(Line)-CursorX)
EndTagPos = Pos(">", EndTag)
If(EndTagPos > 0) Then
Do
Line = Upper(Left(Line, EndTagPos+CursorX))
StartTagPos = Pos("GMI<", Reverse(Line))
If(StartTagPos > 0) Then
Do
Tag = Right(Line, StartTagPos+3)
PicturePos = Pos("SRC=", Tag)
If(PicturePos > 0) Then
Do
Name = Right(Tag, Length(Tag)-PicturePos-3)
If(Left(Name, 1) = '"') Then
Parse Var Name '"' FileName '"' rest
Else
Do
Parse Var Name FileName '>' rest
Parse Var FileName FileName ' ' rest
End
If(Right(Path, 1) = ':') Then
File = Path || FileName
Else File = Path || '/' || FileName
Address Command Visage '>T:ImgDimensions "'File'" Info'
If(RC = 0) Then
Do
Open('Size','T:ImgDimensions','Read')
Info = ReadLn('Size')
Info = ReadLn('Size')
Info = Right(Info, Length(Info)-10)
Close('Size')
Parse Var Info width 'x' height 'x' rest
JumpTo LineNr+1 Length(Line)-StartTagPos+2
Text " Width=" || width || " Height=" || height
End
End
End
End